100 POKE53280,0:POKE53281,0
110 SP$="                    "
120 PRINT"[147][208]RINT TO ([211][146])CREEN OR ([208][146])RINTER:"
130 GOSUB 1000:IF K$="S" THEN 300
200 OPEN 4,4,7
210 PRINT"[196]OUBLE [204]INE [211]PACING ?"
220 GOSUB 1000:IF K$="Y" THEN L=1
230 PRINT"[196]OUBLE [215]IDTH ?"
240 GOSUB 1000:IF K$="Y" THEN W=1:PRINT#4,CHR$(14);
250 PRINT"[147][208]RINTING...":GOTO 310
300 OPEN 4,3:PRINT"[147][208]RESS A [203]EY TO [208]AUSE....";:W=1
310 OPEN 2,8,2,"GE.INFO,S,R"
320 GET#2,C$:IF ST>63 THEN 380
330 PRINT#4,C$;
340 IF C$=CHR$(13) AND L THEN PRINT#4
350 IF C$=CHR$(13) AND W=0 THEN PRINT#4,SP$;
360 IF PEEK(197)<>64 THEN 360
370 GOTO 320
380 CLOSE 2:CLOSE 4
390 END
1000 GET K$:IF K$="" THEN 1000
1010 RETURN